home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / system / Device.st < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.1 KB  |  55 lines
  1. "---------------------------------------------------------------------"
  2. " Device Class is an abstract class.  Derived classes use its methods "
  3. " to talk to the Amiga OS. "
  4. "---------------------------------------------------------------------"
  5.  
  6. Class Device :Object
  7. [
  8.   initialize: initString
  9.    super subClassResponsibility: 'initialize: initString'.
  10.    ^ nil
  11. |   
  12.   clear
  13.    super notImplemented: 'clear'.
  14.    ^ nil
  15. |
  16.   flush: devName
  17.    super subClassResponsibility: 'flush: devName'.
  18.    ^ nil
  19. |
  20.   invalid
  21.    super notImplemented: 'invalid'.
  22.    ^ nil
  23. |
  24.   read: devName
  25.    super notImplemented: 'read: devName'.
  26.    ^ nil
  27. |
  28.   reset: devName
  29.    super subClassResponsibility: 'reset: devName'.
  30.    ^ nil
  31. |
  32.   query
  33.    super subClassResponsibility: 'query'.
  34.    ^ nil
  35. |
  36.   stop
  37.    super notImplemented: 'stop'.
  38.    ^ nil
  39. |
  40.   start
  41.    super notImplemented: 'start'.
  42.    ^ nil
  43. |
  44.   update
  45.    super notImplemented: 'update'.
  46.    ^ nil
  47. |
  48.   getDeviceAddressList
  49.    ^ <primitive 250 2 4>  "Return an Array of Device Addresses."
  50. |
  51.   write: devName this: string
  52.     super subClassResponsibility: 'write: devName this: string'.
  53.     ^ nil
  54. ]
  55.